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oooooo- 
oooooo- 



mm*: 

000020' 

888855- 

000026- 
000030- 
000032- 
000034- 
000036- 

mm- 

000044' 



3KH0D <BMFB >,173000,,,,,1 00, 155 
MODULE 40020.BMFB , 173000,, ,,^100, 155 



0000 
0000 



oooooo 



888238' 



BMFB DEC/X11 SYSTEM EXERCISER MODULE 
XRMFBO.Pli 12-OCT-78 11:50 



-LIST BIN 
**************** 




************** 



***************************** 



LE NAME. 



w 



***************! 



SVR1: 
SVR2: 


OPEN 


OPEN 


SVR3: 


OPEN 


SVR4: 
SVR5: 


bhs 


SYR6: 


OPEN 


CSRA: 


OPEN 


sbadr: 




MASADR! 


OPEN 


ASTAT: 


OPEN 


BRRTYP: 

ASB: 

AWAS: 




OPEN 


OPEN 


RSTRT: 


RESTRT 


WDTO: 


OPEN 


aoFR: 


OPEN 


INTR: 


OPEN 


IDNUM: 


155 




.PEPT SPSIZ 




.NLTST 


HACY11 


30AO052) 12-HCT-7I 



ST DEVICE VECTOR. 

a ST BR LEVEL. 

2ND BR LEVEL. 
;DEVICE INDICATOR 1. 
;SWITCH REGISTER 1 
;SHITCfl RFGISTER 2 
;SHJTCH REGISTER 3 
JSWTTCH REGISTER 4 
*******************«< 

;STATDS WORD. 

;mqdule start addr. 

jM8S l So8ttS« ro "™- 



****************** 



if OF ITERATIONS PER »>ASS = 100 
;LOC TO COUNT ITERATIONS 
;LOC TO SAVE TOTAL SOFT ERRORS 
;LOC TO SAVF TOTAL HARD ERRORS 

jtffi ffl im mi mmi m mi 

;t OF SYS ERRORS ACCUMULATED 

mum fiBfffhw m,cro is 

;loc to save ri. 

;loc TO SAVE R2. 
;loc to save R3. 

*PQ£ 1° SAVE R4. 
JLQC TO SAVE P5. 
;LOC TO SAVE P6. 
;ADDR OF CURRENT CSR. 
;ADDR OF GOOD DATA, OR 

\ ADDR OF RAD* DATA, OR 
;STATUS RFG CONTENTS. 

;ACTUAL DATA. 

? SSSJS R I^*B' )R S SS AFTER END OF PASS 
JWORDS TO MEMORY PEP ITERATION 
; WORDS FROM MEMORY PER ITERATION 
;* OF INTERRUPTS PER ITERATION 
;MODULE IDENTIFICATION NU«BER=155 
?MODULE STACK STARTS FERE. 
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:fc»I 



*********** 



******************************************* 



BMPB I 
XBHPBt 



'.w" s rfi E ?t- E 7 x i R fifio s •""""•= 
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203 
94 000224- 016705 177SS6 

0002 



$1 o.°ol!o 

" MM 
I life 



m 



urn 
II 



ra«r 

173224 

000026 

000016 
001336- 



104413 000000* 
000306' 000750 



START: MO? 



RESTRT: 

again: 



2$: 
3$: 
4$: 



MO? 
MOV 
CMP 

«P 

BEQ 
CMP 

m 

CMP 

SIS 

SB? 

BNE 



ENDITS, BEGIN 
BR AGAIN 



R2 
Rl 



A00R,R5 

ffe 

173224, Rl 

R1),(R2) 

C,BMERR 
JR1),(R2> 

PC f BNERR 



>GEY FIRST ROM ADDRFSS INTO R5 



;R1 POINTS 
;R2 POINTS 



m.s 



;rom ai 



TORO 



OH HOR] 
ON IMA 
173024 



ORD 

"1AGE IS CORE 
7? 



,._ ADDRESS 
;rr IP YES 
JCHECK OMr 



173224 ?? 



ND REPORT 



El 

T ERROR 



118 3&t5?°?*d ... 

JCHECK TT AGAIN 

J18 IE,S? S3d = bI 

it8Bi*2*S 88S8 ?? mERS 

I BR IP NOT 

JSIGNAL END OP ITERATION. 
^MONITOR SHALL TEST END OP PASS 



SEQ 0006 



: ) 



000310- 010267 177566 

™:fc mn 

000324- 011267 177556 

000330- 104404 000000' 
000334- 000207 



;THIS ROUTINE SETS OP AND REPORTS ALL DATA COMPARE ERRORS 



BMERR: 



881 Kl/HAb.. 
MO? (Rl)'AHAS 

********* 



P 



R2,SBADR 
Rl/UASADR 



2i**§i******< 



Hill THg„ADDR. OF GOOD DAT 
fG^WA^ATf ?HF U M " 

**i£*I*JS§***l*8IJ** 



DATER$ r BEGIN ;DATA ERROR. M 

;******************************'* ; 5* , * : *i;******* 
RTS PC CONTINUE CHECKING 



****************** *«*« 



****************** 



CHECKING 
>256(10) WORD TABLE THAT STORES A CORE IMAGE OP THE CONTENTS OP THE ROM 



000340- 8&88I0 

mm- mm 

46- 032700 

15- mm 

54- 000513 



000356- 005000 
000360* 000404 



000362- 173000 



BMTAB: 



000346 

000--- 




005000 , 
000404 ; 

173000 



Wk 808840 

.73010 032700 

* P ftp 

.73 6 88JS13 

73020 005000 
.73022 000404 

73024 173000 



MO? 


R0,P0TQR7*0 


MO? 


SWR,R0 


BIT 


#BIT0,R0 


BNE 
BR 


BOTONX 
RFGSAV 


CLR 


RO 

BOTONX 
24 
R0M0RG,PR7 



;sa?e ro tn location 40 
;get snitch register 
;is loh-ordbr bit set? 

;?ES— LOOK AT CONTENTS 
>NO — SAVE R1-R7 IN 42-5 

;SAY LOAD FROM FLOPPY, n 
;GO TO COMMON CODE FOR 3 



') 
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ffl 

$ 

263 
264 

III 

ill 

270 
2 l l 
273 

276 
277 

Iw 

28? 
ill 

284 
285 
386 
87 



I 



289 
290 
291 
292 

ill 
ill 

297 
298 
299 
300 
301 
302 
303 
304 
105 
306 
307 
308 
309 

$1 



If 



000364- 000340 



tit- 



812 7 oo 
000200 



000372 

00 



400- 000060 



556... 

000402 
000404 



101001 
005000 



000406* 000300 

177% 

105705 
100553 
012737 

0Q00Q4 
005037 
000006 

8HJ M 



000410- 
000412- 

tMV 

000420- 
000422- 

88842?: 



000432' 
000434- 
000436- 
000440- 
000442- 

000444- 
000446- 
000450- 
000452- 



..J014 

mm 

010003 



100402 
005306 
002445 



000454- 000005 



000456* 
000460- 
000462- 

000464- 
000466- 
OQ047Q- 
000472- 

000476- 
Q005f-- 
0005( 



032711 
000040 
001775 

010300 
001402 
012700 
000020 



818*22 
105711 

mm 

000001 



000514- 105711 




10$: 



rxrset: 
20$: 



BHI 
CLR 

SWAB 
BIC 

TSTB 

BMI 

MO? 



CLR 

MO? 

MOV 

MO? 

TST 
BMI 
DEC 
BLT 

RESET 

BIT 

BEQ 



MOV 
BEQ 
MO? 



TSTB 

BPL 

MO? 



20$: 



|BIT7,R0 

R0,R5 

RO 

#3*BIT4,R0 

10$ 
RO 

RO 
#"C7,R0 

R5 

RPBOOT 

#TCROOT,4 



#RETRY,SP 

#RXEPA+RXCS,R1 

R0,R3 

R5 

RXRSET 
SP 
RXEHLT 

#RXD0NE,(Q1) 

20$ 

R3,R0 

#RXUNIT,R0 



;BIT 7 MEANS LOAD FROM R 



;SA?E PARAMETER FOR BOOT 
;LEFf-ALIGN SPEED FIELD 
;IS SPEED Or 1, OR 2? 

jyes — ontt is ontt to 
;no— use unit so 

;get unit # in low byte 
;trih to 3 bits 2, 1, 

;where should we boot fp 
?bit 7 = i — boot from 
;set timeout trap to try 



;SET RETRY COUNT 

J ADDRESS CONTROL STATUS 

;COPY UNIT * 

; INDEFINITE RETRY? 
;YES— TRY FAITHFULLY 
; S9«o RE C 5EMENT RETRY CO 
;GI?E UP IF RON OUT 

;CLEAR THE WORLD 

;WAIT UNTIL READY FOR FU 

;not YET— WAIT 

;get UNIT * 
;ZERO — USE ZERO 
;N0»-ZER0 — ASSUME UNIT 



#PXREAD+RXGO,R0 ;SET READ FUNCTION 



S3? miv* 



!H 8 MM 



Rl) 
?J(R2) 



must 



; READY? 

;no— wait 
;set sector # 



;READY FOR TRACK? 



SCS 
N, R2 



\ 



DEC/X11 SYSTEM EXERCISER MODULE 
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IMMm 
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100376 

mm 

032711 

mm 

100744 



000 
005 



012706 




30$: 



BPL 

MOV 



BTT 

BEQ 
BMI 

MOV 

CLR 

BITB 

®t 
MOVR 

FILLTO 

-BYTE 

-BYTE 



000Q14 
012701 



BEQ 
MOV 
BP 



MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JMP 



CLR 
MOV 
MOV 
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000650* 177342 




177342 

005705 
100402 
005306 
002427 

000005 
010003 
000303 

00400? 
010311 

005711 
100376 
005761 

1003ZS 
012761 

ill*™ 
000002 
052704 
000005 
010411 

imn 

005711 
100746 
000460 



177776 

000460 

000014 

v>m 

012702 
004000 

005705 
100402 
005306 
002444 

000005 

000010 



ill! 177342 

73316 
73320 
23322 



JH 



7335 

::m 

73362 
. 73364 
;173366 
"2337Q 
73370 
73372 
73374 
173376 
73400 
7340" 
7340_ 
73404 
73406 

mi 

_73416 
173420 



005705 
100402 
005306 
002427 

000005 
010003 
000303 

00400? 
010311 



032711 
004000 
001766 
012711 




30$: 



mix 

32424 



3426 
73430 

P* 

73434 
73436 
"3440 

3442 
73444 
"3446 

3450 



000014 
012701 
176700 
012702 
004000 

005705 
100402 
005306 
002444 

000005 
110061 
000010 
032711 

ntm 

012/11 



TST 
BMI 
DEC 
BLT 

RESET 

MOV 

SWAB 

MOV 

BIS 

MOV 

TST 
BPL 
TST 

BPL 

MOV 

BIS 

MOV 

TSTB 

BPL 

TST 

BMI 

BR 

MOV 



MOV 
MOV 
MOV 



TST 
BMI 
DEC 
BLT 

RESET 
MOVB 



20$ 
#1,(R2) 



;mo— WAIT 
;SET TRACK ff 



#RXERR!RXD0NE,(P1) ;DONE OR ERROR? 



30$ 
RXRTRY 



;no— 

?YES- 



WAIT 
■ ERROR IN FUNCTION 



#RXFMPT*RXGO,(Rl) ;START EMPTY 

R 4 ; ALWAYS START TRANSFER A 

#RXTRFQ!KXD0NF,(R1) ;READY POR WORD, OR 

tggpc 

If I''""* 



R0M0RG,PR7 



#RXRERR+RXGO,(Rl) ;D0 A READ ERROR REGIS 



;NOT DONE — GET A BYTE F 
;WATT FOR NEXT BYTE 



#RXD0NE,(R1) 

10s 

(R2);R0 
HALTED 

R0/R0TOR7+16 

#R0TOR7+16,R0 

SP,-(R0) 
R5,-(R0) 
R4 # -f RQ> 

R2,-(R0) 
R1,-(R0) 
-(RO)rRO 
@R0TOR7+16 



RO 
R5 



#RETRY,SP 
#TCEPA+TCCM,R1 



;WAIT UNTIL ERROR ASSEMR 

;g|t" ERROR REGISTER 
;BALT AND DISPLAY ERRORS 

;SAVE RO AS PC IM 56 

;R0 NOW POINTS TO 56 

;save SP 
;SAVE R5 
;SAVE R4 

;§ave R3 

;SAVE R2 
;save Rl IN 42 
;RESTORE RO FROM 40 
;GO TO SAVED PC 



IN 54 
IN 52 



R5 
10$ 
SP 
TCEHLT 



RO, R3 
R3 



;HERE TO START WITH 
i • • 



;INIT RETRY COUNTER 
;POINT TO COMMAND REGIST 



^INDEFINITE RETRY? 
;YES~ TRY HAROFR 

;no~ decrement count 
;too many — give rip 

;CLEAR TC11 
?GET DNIT NUMBER 
;to BITS 10-8 



S?d^v*TCRN W Tcfia C °n, F ?i R »g! A ?»^ N ?o T jySn 

B3,(R1) ; . . 

5 



Rl) 
TCST-TCCM(Rl) 



JERROP? 

; U2"-- ttAIT FDR END-ZONE 

;END-70NE UP YET? 



;transfer done? 

;no— wait some more 

;yes — error? 

;yes— retry 

;no— done— goto locati 



I C oIE Y ,r U P ,r^w?K9T~ S2 ST BE OTHER EPRO 
S-256.,TCWC-TCCM(R1) ;SET H0RD corTNT 

#TCREAD*TCG0,R4 ;START READ, FORWARD 

R4,(Rl) ; - . 

(Rl) 

30$ 

(Rl) 

TCRTRY 

CLRPC 

TCST-TCCM(R1),R0 ?GET STATUS REGISTER 

HALTED ;AND STOP 

#RETRY,SP ;RETRY RETRY TIMES 

#PPEPA+RPCS1 / R1 JADDRESS RPCS1 IN Rl 

#RPECCI,R2 ;SET ECC TNPIBIT, 20 SEC 

;INFINITE RETRY? 
;YES— TRY AGAIN 

;RETRY COUNT EXHAUSTED? 

• yes— give up 

;zapii 

;select proper unit 8 

;IS DRIVE AVAILABLE Tn U 

RY AGAIN 

READ-IN PRESET* F 



R5 
10$ 
SP 
RPEHLT 



R0,RPCS2(R1) 

#RPDVA,(R1) 

RPRTRY 



«rpprst* R pgo,( B iH5S t«.* e »I" 



!3EM! 




n%3rf rag M0| ""- E 
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CLR 
CLR 
BIS 

H0¥ 



mr 




20$: 



30$: 



10$: 



mov 

TSTB 

IB 

BR 

BIT 

BNE 
BIT 

BNE 
CLR 
MOV 

HALT 



BR 

CLR 
HQV 
MOV 
MOV 
MOV 

MOV 
CLR 



RPDC(Rl) ;SET CYLINDER 
RPDA(Rl) ; TRACK 0, SECTOR 
R2,RP0F(R1) /SET INHIBIT ECC, 22-SEC 
#-256.,RPBC(Rl) /SET OP WORD COUNT TO PR 

#RPREAD+RPG0,(R1) ;START READ FUNCTION 



^■^■piiion'^iHinRSIS^ " IS 



/NO— TRY AGAIN 

/YES— TRY FOR 22 SECTOR 



30$ 
#RPFM22,R2 

RPRTRY /TRY AGAIN 

#RPTRE!RPMCPE,(R1> /TRANSFER OR MBC PARI 

RPRTRY /YES— ERROR — TRY AGAIN 

#RPATAIRPERR,RPDS(R1) ;ATTM OR OTHER ERR 



RPRTRY 

PC 

RPDS(R1),R0 

HALTED 
R0,R0TOR7+0 
#10S,R0 
REGSAY 



012704 
174340 



/YES— ERROR — TRY AGAIN 

/JMP 

/DISPLAY DRIYE STATUS 

*DIE 
/STAY DEAD 

;SAVE RO IN 40 

;SET RETURN ADDRESS IN R 

;SAYE R1-R7 

/ADDRESS LOCATION ZERO 

1181 I II B 

/SET NXM TRAP ADDRESS II 

/SET PS FOR TRAP 
#DLYCHT-DTESIZ # R4 /POINT TO DTE # -1*S D 



S,(R5)+ 



) 
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mm 
sub 



001302* 000000 
001304* 000000 



000004 

062704 
000040 
105704 
100770 

004000 

mm 

026417 
000014 

mm 

010245 
010145 
010045 

nm? 






Mil 

mm 

005724 
010401 
012700 
"00100 

II 

mil 

032711 
004000 

mm 

005061 

hhfa 

107400 
177762 

832211 

001775 
005007 

000000 



73612 
.73612 

lif 

.73620 

mil 

73626 

im 

.73634 
73636 
73640 
.73642 
73644 
73646 
.73650 
73652 

73660 

.7188 

m 

73670 
— 672 



81 



2706 
0004 



062704 
000040 

ittWo 

nuts 
imt 

026417 
00014 

"5 

5 

010145 
010045 



UUUU11 

001365 

818313 

1014" 

1084 

127Q 



imt 
mm 



nm 8? 



005724 
010401 

Jiff 

3704 177744 

"" mn 



73 

m 



m 

.73712 
*73714 

nm 

73722 

17.3224 

73726 

,173730 

' 4 73734 



p 

73745 
73746 
73"*" 



747 



032711 
004000 

8S&ZI3 

vmti 

107400 
177762 

mm 

001775 
005007 

000 
000 
000 
000 



29$: 



40$: 



TSTB 
BMI 

BIT 



BPQ 
CMP 

BNfc 
HOY 
MOY 
MOV 
MOV 
HOY 



MOV 
CMP 

BHIS 

ADDX 

TST 

MOV 

MOY 

MOV 
CLR 



BEQ 
MOV 
CLR 



BEQ 

CLR 

PILLTO 

.BYTE 

-BYTE 

-BYTE 

-BYTE 



#DTESIZ,R4 

R4 
20$ 



/SET SP TO 4, STACK IS L 



;BUMP TO NEXT DTE'S EXTE- 



ND OF THE 
LL. OVFR € U 



/IS THIS THE 
/YES — START 



20$ SYES— START ALL OVER, U 

#T011DB,STAT-DLYCNT(R4) /DOORBELL RTNGIN 

22$ a NO— TRY NEXT DTE 

TOlOBC-DLYCNT(R4),(PC) /DOES THIS ONE HA 



rL(R5) 

R2,-(R5) 

Rl,-fR5) 

R0,-(R5) 

#DTESAV,R0 



/NO— TRY ANOTHER DTE 
/RESTORE LOCATION 6 

i 

/POINT TO SAVE AREA 



(R4) + < r(R0)+ /SAVE A REGISTER 
#TOllDT-DL¥CNT+DTESAV,R0 /FINISHED? 

29$ /NO — SAVE SOME MORE 

DIAG2-T011DT-2,R4 /P4 POINTS TO DIAG2 RE 
(R4) + 
R4,R1 

#DRESET,R0 

8°fi R l> + *«1 POIl.- ._ _ _ ... 
LYCNT-STAT(Rl) /SET DTE20 FOR MAXIMUM 

TOIOAD-STAT(RI) /START DUMPING -11 M£MOP 



/ SO DOES Rl 

/SETUP RO FOR "DIAGNOSTI 

/Rl POINTS TO STATUS RER 
*-""*■ -— MAXIMUM D 



#T0UDB,(R1) 



/IS DOORBELL RINGING (TR 



30$ /NO — WAIT FOR DOORBELL 

ROffR.4) /YES— CLEAR DOORBELL AN 

TOllAD-STAT(Rl) /START INPUT TO LOCATION 

#IFLOPl«-256.>'i7777>,T011BC-STAT(Rl) /2 



#T0UDN,(R1) 
40$ 



/TRANSFFR COMPLETF? 

/NO — HAIT UNTIL DONE 
/GO TO LOADED CODE, STAR 



"I 



••; 
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539 001306* 000000 

540 

541 001310' 000000 

543 001312* 000000 

544 

545 001314* 000000 

547 001316* 000000 

549 001320* 000000 

551 001322' 000000 

552 

553 001324' 000000 

555 001326' 000000 

557 001330' 000000 

55§ 001332' 000000 

560 

561 001334' 000000 

562 

563 001336- 177777 

564 

565 000001 
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ACSR 000102R IR5S 

ADDR OOOOObR 151f 204 

ADDR22= 001000 203# 

AGAIN 000230R 207* 225 

ASB 000106R 189ft 233* 

ASTAT 0QQ104R 1871 

AWAS 000110R I90f 232* 

m n . mm* m " 3 
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000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
177777 



73750 
73751 
73752 
73753 
73754 
73755 

HE* 

73760 

nm 

73763 
23264 
73765 



73775 
73776 
73777 

74000 



000 
000 
000 



000 
000 
000 

888 

000 



odd 
ooo 
ooo 



.BYTE 
.BYTE 
.BYTE 

:H?! 

.BYTE 
-BYTE 
.BYTE 
-BYTE 
.BYTE 
• BYTE 
-BYTE 
.BYTE 
-BYTE 
.BYTE 
-BYTE 
-BYTE 
.BYTE 
.BYTE 

:IH! 

.BYTE 
.BYTE 
.BYTE 
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104412 

OOOlBoR 
104411 
104404 
00QQ14R 



EXITS = 
GETPAS= 



218 
2 45S 



000040R 

000122R 

000030R 

000120R 

104416 

OOOOOOR 

000224R 

104403 

104402 

104401 



\ 
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NOLL 
OPEN 



000000 
000000 



PASCNT~ 000034R 
PIRQS = 000004 

mU mm 

PRTY = 000000 

mi i mm 
psih : mm 
mi -. mm 

PRTY6 = 000300 
PRTY7 s 000340 

mh - mh« 

RANDS = 104417 
RANNUM 000054R 
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W 



157 

189 



158 
190 



13! 13S 



177 
194 



Hit 



SEQ 0014 
183 



'.) 



2066 



SOFERS 
SOFPAS 



000046R 

mm* 



BMFB DEC/Xlt SYSTEM EXERCISER MODULE 
XBMFB0.P11 ~~ " ~- 
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. ABS. 000000 
001340 



000 
001 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

XBMFBQ,XBME80/SOL/CRF:SYM=DDXCOM,XBHFBO 
RUN-TIME: 1 I .2 SECONDS 
RUN-TIME RATIO: 21/3=5.5 
CORE USED: 7K (13 PAGES) 



i 



) 



